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-- Commander. mesa; edited by Sandman, September 19, 1977 9:52 AM 

DIRECTORY 

CommanderDefs: FROM "commanderdefs" , 
ControlDefs: FROM "controldef s", 
InlineDefs: FROM " in! inedef s" , 
ImageDefs: FROM "imagedefs", 
lODefs: FROM "iodefs", 
RectangleDefs: FROM "rectangledefs" , 
SegmentDefs: FROM "segmentdef s", 
StreamDefs: FROM "streamdef s" , 
StringOefs: FROM "stringdefs" . 
SystemOefs: FROM "systemdefs" ; 

DEFINITIONS FROM StringOefs, CommanderDefs, lODefs; 

Commander: PROGRAM [herald: STRING] 

IMPORTS ImageDefs, lODefs, StreamDefs, StringOefs, SystemOefs 

EXPORTS CommanderDefs = 
BEGIN 

GlobalFrameHandle: TYPE = ControlDefs .GTobalFrameHandl e; 

Commandltem: TYPE = RECORD [ 
cb: CommandBlockHandle, 
link: POINTER TO Commandltem]; 

Stringltem: TYPE = RECORD [ 
link: POINTER TO Stringltem, 
string: STRING]; 

commandHead: POINTER TO Commandltem ♦- NIL; 
stringHead: POINTER TO Stringltem *■ NIL; 

SyntaxError: ERROR = CODE; 

Help: SIGNAL = CODE; 

BadName: ERROR = CODE; 

BadParam: ERROR [type: ParamType] = CODE; 

GetDebugger: PROCEDURE = 
BEGIN 

Cal lDebugger[] ; 
END; 

CallDebugger: MACHINE CODE = INLINE [347B, 54B]; 

AddCommand: PUBLIC PROCEDURE [name: STRING, proc: PROCEDURE, numargs: CARDINAL] RETURNS [CommandBlockHa 
**ndle] = 

BEGIN OPEN SystemOefs; 

c: POINTER TO Commandltem ♦- Al locateHeapNode[SIZE[CommandItem]] ; 

cb : CommandBlockHandle <- 

Al locateHeapNode[SIZE[CommandBlock]+numargs*SIZE[CommandParam]] ; 

ct ♦- CommandItem[cb : cb , link: commandHead]; 

commandHead ♦- c; 

cb.name ♦• name; 

cb.proc ♦• proc; 

cb.nparams ♦- numargs; 

RFTURN[cb] 

END; 

NewString: PROCEDURE [s: STRING] RETURNS [ns: STRING] = 
BEGIN 
si: POINTER TO Stringltem ♦• 

SystemOefs . Al locateHeapNode[SIZE[Str ingi tern]] ; 
ns <- Sys temr)ers . Al locateHeapS tring[s . 1 ength]; 
sit ♦- Str ingI tem[l ink: stringHead, string: ns]; 
str i ngHead ♦-si; 
Appends tr ing[ns , s] ; 
RfTURN 
CND; 

FreeStrings: PROCEDURE = 
BfGlN 

next: POINTrR TO Stringltem; 
WHILE str ingHead ^ NIL DO 
next ^ str IngHead . 1 ink ; 
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SystemDefs.FreeHeapString[stringHead. string]; 

SystemDef s. FreeHeapNode[stringHead]; 

stringHead ♦• next; 

ENDLOOP; 
RETURN 
END; 

WriteEOL: PROCEDURE = 
BEGIN 

IF -NewLine[] THEN WriteChar[CR]; 
RETURN 
END; 

ComplementScreen: PROCEDURE « 
BEGIN OPEN RectangleDefs; 
dcbptr: DCBptr; 
CompBackGround: ARRAY backgtype OF backgtype « [black, white]; 

FOR dcbptr ♦- MEM0RY[420B] . dcbptr. next UNTIL dcbptr = DCBnil DO 

dcbptr. background ♦- CompBackGround[dcbptr . background]; 

ENDLOOP; 

RETURN 

END; 

FlashScreen: PROCEDURE « 
BEGIN 

ComplementScreen[] ; 

THROUGH [1.. 10000] DO NULL ENDLOOP; -- delay a while (38us per iteration) 
ComplementScreen[]; 
RETURN 
END; 

interactive: BOOLEAN; 

commandStream: StreamDefs .StreamHandle; 

comcmRequest : short ImageDef s . Fi leRequest <- [ 

body: short[fin:, name: "Com. Cm."], 

file: NIL, 

access: SegmentDef s .Read, 

link: ]; 
CommanderCleanupItem: ImageDef s .Cleanupltem <- [proc: CommanderCleanup, link: ]; 

CommanderCleanup: ImageDef s .CleanupProcedure = 
BEGIN 
SELECT why FROM 

Save => ImageDefs . AddFileRequest[0comcmRequest]; 

ENDCASE; 
RETURN 
END; 

SetCommandlnput: PROCEDURE = 
BEGIN 

c: CHARACTER; 

IF comcmRequest .fi le = NIL THEN commandStream ♦- NIL 
ELSE 

BEGIN OPEN StreamDefs; 

commandStream ♦- CreateByteStream[comcmRequest .f i le, StreamDefs . Read] ; 

[] ♦- SkipStreamBlanks[]; 

UNTIL commandStream. endof [commandStream] OR 

(c*-commandStream.get[commandStream]) = SP OR c = CR DO NULL ENDLOOP; 

[] *- SkipStreamBlanks[]; 

IF commandStream. endof [commandStream] THEN 

BEGIN commands tream. destroy[commandStream] ; commandStream ♦- NIL; END 

ELSE Se 1 1 ndex[ commands tream, Mod i fy Index [Get I ndex[ commands tream] .-!]]; 

END; 
interactive ♦- commandStream = NIL; 

RETURN 
END; 



Commander. mesa 25-0CT-77 15:00:16 Page 3 



-- code to get a line from the user, handling ESC and ?; stuffs it in line 

line: STRING ♦■ NIL; 
lineTerminator: CHARACTER; 
Lindex: CARDINAL; 

AppendStringToLine: PROCEDURE[s: STRING] = 
BEGIN 

UNTIL (s.length+line. length) <* 1 ine.maxlength 00 AddToLine[]; ENDLOOP; 
AppendStringp ine, s]; 
RETURN 
END; 

AppendCharToLine: PROCEDURE[c: CHARACTER] « 
BEGIN 

IF line. length = 1 ine.maxlength THEN AddToLine[]; 
AppendChar[l ine.c]; 
RETURN 
END; 

ReadUserLine: PROCEDURE[newstring: BOOLEAN] = 

BEGIN -- read line from user; also handles <ESC> and '? for input from user 
IF line « NIL THEN line ♦- SystemDef s. AllocateHeapStr ing[80] ; 
[] ^ ReadEditedString[l ine, LineMonitor, newstring 

Iresume => BEGIN newstring ♦• FALSE; RETRY END]; 
Lindex ♦- 0; 
RETURN 
END; 

resume: SIGNAL = CODE; 

LineMonitor: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] « 
BEGIN 
SELECT c FROM 

CR => RETURN[TRUE]; 
•? -> 

BEGIN 

WriteChar['?]; 

IF line. length = THEN SIGNAL Help; 
PromptCompletions[] ; SIGNAL resume 
END; 
ESC => BEGIN ExtendLine[]; SIGNAL resume END; 
ENDCASE => RETURN[FALSE] 
END; 

PromptCompletions: PROCEDURE = 
BEGIN 

id: STRING = [40]; 
atLeastOne: BOOLEAN ♦- FALSE; 
p: POINTER TO Commandltem; 
IF GetLastID[id] THEN 

FOR p ♦- commandHead, p. link UNTIL p = NIL DO 
IF Pref ixString[pref ix: id, of: p.cb.name] THEN 
BEGIN 

IF --atLeastOne THEN WriteEOL[]; 

WriteChar[SP]; Wri teChar[SP] ; Wri teStr ing[p . cb. name] ; 
atLeastOne ♦• TRUE; 
END; 
ENDLOOP; 
IF atLeastOne THEN ReTypeLine[] ELSE Fl ashScreen[] ; 
RFTURN 
FND; 

FxtendLine: PROCEDURE = 
BCGIN 

i : CARDINAI ; 
id: STRING = [40]: 
match: STRING = [40]; 

moreThanOne, atLeastOne: BOOLEAN ♦- FALSE; 
p: POINTFR TO Commandltem; 

IF Getl astTD[ id] THEN 
BEGIN 
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FOR p *- commandHead, p. link UNTIL p = NIL DO 
IF PrefixString[pref ix: id, of: p.cb.name] THEN 
IF -atLeastOne THEN 

BEGIN AppendString[match, p.cb.name]; atLeastOne ♦• TRUE; END 
ELSE BEGIN AndString[match. p.cb.name]; moreThanOne *• TRUE; END; 
ENDLOOP; 
END; 
IF atLeastOne AND id. length # match. length THEN 
BEGIN 

FOR i IN [id. length. .match. length) DO 
AppendCharToLine[match[i]]; 
WriteChar[match[i]]; 
ENDLOOP; 
IF moreThanOne THEN FlashScreen[] ; 
END 
ELSE FlashScreen[]; 
RETURN 
END; 

PrefixString: PROCEDURE [prefix, of: STRING] RETURNS [BOOLEAN] = 
BEGIN 
i: CARDINAL; 

IF prefix. length > of. length THEN RETURN[FALSE]; 
FOR i IN [0. .prefix. length) DO 

IF '-EquivalentChar[prefix[i]. of[i]] THEN RETURN[FALSE]; 

ENDLOOP; 
RETURN[TRUE] 
END; 

AndString: PROCEDURE [accum. s: STRING] = 
BEGIN 
i: CARDINAL; 

FOR i IN [0. .3. length) DO 

IF -EquivalentChar[accum[i], s[i]] THEN 
BEGIN accum. length ♦• i; RETURN END; 

ENDLOOP; 
accum. length ♦- s. length; 
RETURN; 
END; 

GetLastID: PROCEDURE [id: STRING] RETURNS [BOOLEAN] = 
BEGIN 

i, start: CARDINAL; 
c: CHARACTER; 

IF line. length = THEN RETURN[FALSE] ; 

start «- 1 ine . length ; 

FOR i DECREASING IN [0 .. 1 ine . length ) DO 

IF AlphaNumeric[c ♦- line[i]] THEN start ♦• i ELSE 

IF c = '] OR c = SP THEN EXIT 

ELSE RETURN[FALSE]; 

ENDLOOP; 
FOR i IN [start, .line. length) DO id[i-start] ♦- line[i] ENDLOOP; 
id. length ♦- 1 ine. length-start ; 
RETURN[id. length # 0] 
END; 

AlphaNumeric: PROCFDURF [c: CHARACTER] RETURNS [BOOLEAN] = 
BEGIN OPEN In! ineOefs; 
RETURN[Alphabetic[c] OR Digit[c]] 
END; 

Alphabetic: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] = 
BEGIN 

RETURN[Tnl JneDefs.BITAND[LOOPHOLE[c], 337B] IN [ 1008 . . 132B] ] 
END; 

Digit: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] = 
BEGIN 

RETURN[c IN ['0. . '9]] 
END; 
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EquivalentChar: PROCEDURE [c.d: CHARACTER] RETURNS [BOOLEAN] » 
BEGIN OPEN InlineDefs; 

RETURN[BITORCLOOPHOLE[c]. 40B] = BITOR[LOOPHOLE[d] , 40B]] 
END; 

AddToLine: PROCEDURE = 
BEGIN 
newline: STRING ♦- SystemDef s. AnocateHeapString[l ine.maxlength+80]; 

AppendString[to: newline, from: line]; 

SystemOefs.FreeHeapString[l ine]; 

line ♦• newline; 

RETURN 

END; 



ReTypeLine: PROCEDURE 
BEGIN 

WriteEOL[]; 
WriteString[l ine]; 
RETURN 
END; 
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-- code to handle characters 

command: STRING = [100]; 
executing: BOOLEAN ^ FALSE; 
Cindex: CARDINAL; 
cuprentChar: CHARACTER; 

EndOfString: SIGNAL = CODE; 

GetChar: PROCEDURE RETURNS [CHARACTER] *- GetCommandChar ; 

PutBackChar: PROCEDURE ♦• PutBackCommandChar; 

GetCommandChar: PROCEDURE RETURNS [CHARACTER] » 
BEGIN 

IF Cindex >= command. length THEN currentChar ^ NUL 
ELSE BEGIN currentChar *- command[Cindex]; Cindex ♦• Cindex+1; END; 
RETURN[currentChar] 
END; 

PutBackCommandChar: PROCEDURE « 
BEGIN 

IF currentChar » NUL THEN RETURN; 
IF Cindex = THEN ERROR; 
Cindex ♦- Cindex-1 ; 
RETURN 
END; 

CommandOverFlow: SIGNAL = CODE; 

SetUpCommand: PROCEDURE RETURNS [BOOLEAN] = 
BEGIN 

BEGIN ENABLE StringBoundsFaul t => SIGNAL CommandOverFlow; 
RETURN[IF interactive THEN CopyFromLine[] ELSE CopyFromStream[]] ; 
END 
END; 

CopyFromLine: PROCEDURE RETURNS[BOOLEAN] = 
BEGIN 
c: CHARACTER ^ NUL; 

DO 

IF Lindex >= line. length THEN RETURN[FALSE]; 

c ♦■ 1 ine[Lindex] ; 

Lindex <- Lindex+1; 

IF c # SP AND c # CR THEN EXIT; 

ENDLOOP; 
command, length ♦- 0; 
DO 

AppendChar[command, c]; 

IF c = '] OR Lindex >= line. length THEN EXIT; 

c ♦" 1 ine[Lindex] ; 

Lindex ♦- Lindex+1; 

ENDLOOP; 
Cindex *- 0; 
RETURN [TRUE] 
END: 

SkipStreamBlanks: PROCEDURE RETURNS [c: CHARACTER] = 
BEGIN 
UNTIL commandStream. endof [commandStream] DO 

c ♦" commandStream. get[commandStream] : 

U c ff S? AND c ?^ CR THEN EXIT; 

ENDLOOP: 
END; 

CopyrromStream: PROCfDURr RETURNS[BOOLEAN] = 
BEGIN 
c: CHARACTER; 

c ^ Sk ipStreamB1anks[] ; 

IF commandStream. endof [commandStream] THEN ImageDefs .StopMesa[] ; 

command . 1 eng th «- ; 

WriteCOL[]; 

WriteChar['<]; Wr i teChar[ ' >] ; 

DO 

AppendChar[command , c]; 
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WriteChar[c]; 

IF c a • ] OR commanclStream.endof[commandStream] THEN EXIT; 

c ♦• commandStream.get[commandStream]; 

ENDLOOP; 
WriteEOL[]; 
Cindex ♦• 0; 
RETURN [TRUE] 
END; 

GetName: PROCEDURE [n: STRING] =« 
BEGIN 

n. length ♦• 0; 
DO 

IF AlphaNumeric[GetChar[]] THEN AppendChar[n, currentChar] 

ELSE EXIT; 

ENDLOOP; 
PutBackChar[]; SkipBlanks[] ; IF GetCharC] # '[ THEN SEC]; 
RETURN 
END; 

SkipBlanks: PROCEDURE =» 
BEGIN 
DO 

IF GGtChar[] # SP THEN BEGIN PutBackChar[] ; RETURN END; 

ENDLOOP 
END; 



Commander. mesa 26-0CT-77 15:00:16 Page 8 



— code to parse user command 

ParseCommand: PROCEDURECstate: POINTER TO ControlDef s.StateVector] =• 
BEGIN 

proc: STRING = [40]; 
cb: CommandBlockHandle; 
i: CARDINAL; 

GetName[proc]; 

cb ♦- FindProciproc] .cb; 

FOR i IN [0. .cb.nparams) DO 

state. stk[i] *- GetArg[cb,cb .params[i]. type] ; 

IF GetChar[] Af (IF i = cb.nparams-1 THEN '] ELSE ',) THEN SE[]; 

ENDLOOP; 
state. X ♦- cb.proc; 
state. stkptr ^ cb.nparams; 
RETURN 
END; 

FindProc: PROCEDURE [name: STRING] RETURNS [p: POINTER TO Commandltem] == 
BEGIN 
FOR p ♦- commandHead, p. link UNTIL p = NIL DO 

IF Equiva1entString[name,p. cb . name] THEN RETURN; 
ENDLOOP: 
ERROR BadName; 
END; 

GetArg: PROCEDURE[cb : CommandBlockHandle. t: ParamType] RETURNS [a: UNSPECIFIED] = 
BEGIN 
s: STRING = [100]; 

SkipBlanks[]; 

SELECT GetChar[] FROM 

I If ^y 

BEGIN 

IF t f^ string THEN ERROR BadParam[t]; 

DO 

IF GetChar[] = '" AND GetChar[] ^ '" THEN 

BEGIN PutBackChar[]; EXIT END; 
IF executing THEN AppendChar[s , currentChar] ; 
ENDLOOP; 
IF executing THEN a «- NewStr ing[s] ; 
END; 
• • s> 
BEGIN 

IF t # character THEN ERROR BadParam[t]; 
a ♦• GetChar[]; 
END; 
IN['0. . '9]. '( , '- »> 
BEGIN 

IF t # numeric THEN ERROR BadParam[t]; 
PutBackChar[]; 
a <- ExpressionToNumber[] ; 
END; 
'T => 
BEGIN 

IF t jy boolean THEN ERROR BadParam[t]; 
a ♦- GetTRUE[t]; 
END; 
'F => 
BEGIN 

IF t /i* boolean TflFN ERROR BadParam[t]; 
a - GetFALSE[t]; 
END; 
CNDCASE => ERROR BadParam[t]; 
Skip81anks[] ; 
RETURN 
END; 

GetTRUE: PROCEDURE [t: ParamType] RETURNS [BOOLEAN] = 
BEGIN 

ir GeLChar[] ff 'R THEN ERROR BadParam[t]: 
IF GelChar[] // 'U rHEN ERROR BadParam[t]; 
If GelChar[] # 'E THEN ERROR BadParam[t]; 
RETURN[TRUE]; 
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END; 



GetFALSE: PROCEDURE [t: ParamType] RETURNS [BOOLEAN] 
BEGIN 

•A THEN ERROR BadParam[t]; 
•L THEN ERROR BadParam[t]; 
•S THEN ERROR BadParam[t]; 
♦E THEN ERROR BadParam[t]; 



IF GetChar[] U 
IF GetCharf] U 
IF GetChar[] j^ 
IF GetChar[] # 
RETURN[FALSE]; 
END; 
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— code to parse user commands in interactive mode 

ParsePromptedCommand: PROCEDURE « 
BEGIN 

proc: STRING = [40]; 
cb: CommandBlockHandle; 

IF GetLastID[proc] THEN 

BEGIN 

cb ♦• FindProc[proc].cb; 

GetPromptedArgs[cb]; 

Confirm[]; 

RETURN 

END; 
1 ineTerminator <- CR; 
RETURN 
END; 

CRFound: PROCEDURE [c: CHARACTER] RETURNSCBOOLEAN] = 
BEGIN RETURN[c = CR] END; 

GetPromptedArgs: PROCEDURE[cb: CommandBlockHandle] = 
BEGIN 

i: CARDINAL; 
cindex: CARDINAL; 
cstring: STRING = [100]; 
GetArgChar: PROCEDURE RETURNS [c: CHARACTER] = 

BEGIN 

IF cindex >= cstring .length THEN currentChar ♦- NUL 

ELSE BEGIN currentChar ^ cstring[cindex] ; cindex ♦• cindex+1; END; 

RETURN[currentChar] 

END; 
PutBackArgChar: PROCEDURE « 

BEGIN 

IF currentChar = NUL THEN RETURN; 

IF cindex = THEN ERROR; 

cindex ♦- cindex-1; 

RETURN 

END; 

GetChar ♦- GetArgChar; 
PutBackChar ♦• PutBackArgChar; 
AppendCharToLine[ ' [] ; 
FOR i IN [0. .cb.nparams) DO 
WriteString[" 

"]; 

Wri teStr-ing[cb .params[i] .prompt]; 

WriteChar[' : ]; WriteChar[' ]; 

[] ♦- ReadEditedString[cstring. CRFound, TRUE]; 

cindex ^ 0; 

[] ♦- GetArg[cb, cb .params[i] . type] ; 

AppendStringToLine[cstring]; AppendCharToLine[' ,]; 

ENDLOOP; 
IF cb.nparams # THEN 1 ine[1 ine. 1ength-l] ♦• *] ELSE AppendCharToLine[ ' ]] ; 
GetChar ^ GetCommandChar ; 
PutBackChar ♦- PutBackCommandChar; 
RETURN 
END; 

Confirm: PROCEDURE = 
BEGIN 
char: CHARACTER; 

Wr i teStr ing[" [conTirm]"]; 
DO 

char ♦- ReadChar[]; 
SELECT char FROM 

DFl => SIGNAL Rubout; 
CR => BTGIN WriteCOl[]; EXIT END; 
SP => BfGIN WriteSlring[" 
<>"]; rXIT END; 

fNDCASr => WriteChar['?]: 
ENDLOOP; 
lineTerminator ♦- char; 
RETURN 
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END; 
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— parsing arithmetic expressions 

symbol: Symbol; 
Symbol: TYPE = RECORD[ 

body: SELECT tag: * FROM 

delim => [char: CHARACTER], 

num => [val: INTEGER], 

ENDCASE]; 
Num: TYPE * num Symbol; 

SE: PROCEDURE = BEGIN ERROR SyntaxError END; 

Scan: PROCEDURE = 
BEGIN 

v8, vlO, radix, number: INTEGER; 

digits: ARRAY CHARACTER[ '0. . '9] OF CARDINAL =» [0,1,2.3,4,5.6,7.8,9]; 
firstchar: BOOLEAN ♦■ TRUE; 

v8 ♦- vlO ♦- 0; 
SkipBlanks[]; 
DO 

SELECT GetChar[] FROM 
IN ['C.-g] => 
BEGIN 

v8 ♦• v8*B + digits[currentChar]; 
vlO ♦- vl0*10 + digits[currentChar]; 
END; 
'M => 
BEGIN 

IF -firstchar THEN SE[]; 

IF ~(GetChar[] » '0 AND GetChar[] ^ 'D) THEN SE[]; 
IF -A1phabetic[G6tChar[]] THEN PutBackChar[] ELSE SE[]; 
symbol ^ [del im[ ' I ]] ; 
RETURN 
END; 
•b,*B => BEGIN number ♦- v8; radix ♦■ 8; GOTO exponent END; 
•d,'D => BEGIN number ^ vlO; radix ♦• 10; GOTO exponent END; 
SP => GOTO done; 
NUL => IF -firstchar THEN GOTO done 

ELSE BEGIN symbol ♦• nul; RETURN END; 
'(. •/. •♦, '+. '-, •). •], ', => 

IF firstchar THEN BEGIN symbol «- [del im[currentChar]] ; RETURN END 
ELSE BEGIN PutBackChar[] ; GOTO done END; 
ENDCASE => SIGNAL Inval idNumber ; 
firstchar ♦• FALSE; 
REPEAT 

done => BEGIN symbol ♦• [num[vl0]]: RETURN END; 
exponent => 
BEGIN 

IF firstchar THEN SE[]; 
VlO <- 0; 
WHILE Digit[GetChar[]] DO 

vlO ^ vl0*10 + dig its[currentChar]; 
REPEAT 

FINISHED => PutBackChar[]; -- took one too many 
ENDLOOP; 
THROUGH [t .. vlO] DO number ♦■ number*radix ENDLOOP; 
symbol ♦• [num[number]] ; 
RETURN 
END; 
ENDLOOP; 
END; 

nul : Symbol = [del im[NUL]]; 

Primary: PROCEDURE RETURNS [n: Num] = 
BEGIN 

WITH s: symbol SELECT FROM 
del im => 
BEGIN 

IE s.char H '( THEN SE[]; 
Scan[]; n ^ Exp[]: 
WITH symbol SELECT FROM 
del im => 

IF char = ') THEN BEGIN Scan[]; RETURN END; 
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ENDCASEj 
SE[]: 

END; 
num =^> BEGIN n ♦- s; Scan[]; RETURN END; 
ENDCASE 
END; 

Factor: PROCEDURE RETURNS [n: Num] » 
BEGIN 

WITH symbol SELECT FROM 
del im «> 

IF char « '- THEN 

BEGIN Scan[]; n ^ Primary[]; n.val ♦• -n.val; RETURN END; 
ENDCASE: 
RETURN [PrimaryC]] 
END; 

Product: PROCEDURE RETURNS [n: Num] » 
BEGIN 
x: Num; 
n ♦- Factor[]; 
DO 

WITH symbol SELECT FROM 
del im => 

SELECT char FROM 

•* => BEGIN Scan[]; n.val ^ Factor[].val * n.val; END; 
'/ => BEGIN Scan[]: x ♦- Factor[]; n.val ♦- n.val / x.val; END; 
•! => BEGIN Scan[]; x ^ Factor[]; n.val ♦■ n.val MOD x.val; END; 
ENDCASE => EXIT; 
ENDCASE => EXIT; 
ENDLOOP; 
RETURN 
END; 

Exp: PROCEDURE RETURNS [n: Num] = 
BEGIN 

n ♦- Product[]; 
DO 

WITH symbol SELECT FROM 
del im => 

SELECT char FROM 

•+ => BEGIN Scan[]; n.val ♦- Product[] . val + n.val; END; 
'- => BEGIN Scan[]; n.val ♦- n.val - Product[] . val ; END; 
•], ', => BEGIN PutBackChar[]; EXIT END; 
NUL. ') => EXIT; 
ENDCASE => SE[]; 
ENDCASE »> EXIT; 
ENDLOOP; 
RETURN 
END; 

Express ionToNumber: PROCEDURE RETURNS [INTEGER] = 
BEGIN 
Scan[]; 

RETURN [Exp[].val] 
END; 
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ShowSE: PROCEDURE » 
BEGIN 

IF -executing THEN BEGIN WriteChar[ • ?] ; RETURN END; 
WriteEOLC]; 

IF interactive THEN WriteString[command] ; 
WriteEOL[]; 
THROUGH [l..(Cindex+(IF interactive THEN ELSE 2))) 

DO WriteChar[' .]; ENDLOOP; 
WriteChar['t]; 
RETURN 
END; 

Driver: PROCEDURE » 
BEGIN 

state: ControlDef s .StateVector ; 
newline: BOOLEAN; 
ci: POINTER TO Commandltem; 
i: CARDINAL; 

BEGIN 
ENABLE 
BEGIN 
SyntaxError, LineOverf low, Inval idNumber , Str ingBoundsFault «> 

BEGIN ShowSE[]; GO TO abort END; 
CommandOverFlow => 

BEGIN WriteEOL[]; WriteString["Command too long!"]; GO TO abort END; 
BadName => 

BEGIN ShowSE[]; Wr i teStr ing[" not found!"]; GO TO abort END; 
BadParam => 
BEGIN 
Shov/SE[]; 

WriteStr ing[" expected "]; 
SELECT type FROM 

string *> Wr iteString["str ing"]; 
character => Wr iteString["character"] ; 
numeric => Wr iteString["numerica1 "] : 
ENDCASE; 
WriteString[" parameter"]; GO TO abort 
END; 
Rubout => BEGIN Wr iteString[" XXX"]; GO TO abort END; 
Help => 
BEGIN 

WriteEOL[]; 

FOR ci ♦• commandHead. ci.link UNTIL ci = NIL DO 
Wr i teString[ci . cb . name] ; 
WriteChar['[]; 

FOR i IN[0. .ci .cb.nparams) DO 
IF i # THEN WriteChar[' ,]; 
SELECT ci .cb.params[i].type FROM 
string => Wr i teChar[ ' "] ; 
character => Wr i teChar[ ' ' ]; 
ENDCASE; 
WriteString[ci . cb .params[i] .prompt]; 
SELECT ci .cb.params[i].type FROM 
string => Wr i teChar[ ' "] ; 
ENDCASE: 
ENDLOOP; 
WriteChar[']]; 
IF ci.link if NIL THEN 

BEGIN WriteChar[' .]; WriteChar[' ]; END; 
ENDLOOP; 
GO TO abort 
END; 
UNWIND => rreeStrings[] 
END; 

new! Ine ♦- TRUE ; 
executing *• FALSE; 
IF interactive THEN 
BEGIN 

WriteEOL[]; 

WriteChar['<]; Wr i teChar[ ' >] ; 
DO 
ENABLF L ineOverflow => BEGIN AddToMne[]; RESUME[1ine] END; 
ReadUsert. ine[newl ine]; 
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newline ^ FALSE; 
ParsePromptedCommand[] ; 
IF lineTerminator = CR THEN EXIT; 
ENDLOOP: 
END; 
GetChar <- GetCommandChar; 
PutBackChar ♦• PutBackCommandChar; 
executing ♦- TRUE; 
WHILE SetUpCommand[] DO 
ParseCommand[9state] ; 
state, instbyte <- 0; 
state. Y ♦• REGISTER[ControlDefs,Lreg]; 
TRANSFER WITH state; 
state ♦- STATE; 
ENDLOOP; 
executing *- FALSE; 
EXITS abort => NULL; 
END; 

FreeStrings[]; 

RETURN 

END; 

Quit: PROCEDURE = 
BEGIN 

ImageDef s . StopMesa[] ; 
END; 

-- main body 

[] ♦■ AddCommand["Quit",Quit,0]; 

[] ♦" AddCommand["Debug" .GetDebugger ,0] ; 

ImageDefs . AddC1eanupProcedure[0CommanderC1eanupItem] ; 

STOP; -- restart here when commander is started inside subsystem 

WriteEOL[]; WriteString[heral d] ; WriteEOL[]; 
SetCommandInput[]; 

DO Driver[]; ENDLOOP; 

END. 

— Here is the grammar for the command line 

CommandLine ::= PromptedCommandList <CR> | NonPromptedCommandList ; 

NonPromptedCommandList <EOF> 
PromptedCommandList ::= PromptedCommand | Command | CommandList <SP> Command 

I CommandList <SP> PromptedCommand 
NonPromptedCommandList ::= Command | CommandList <SP> Command 
Command ::= ID [ ParamList ] 
PromptedCommand ::= ID <CR> PromptedParamList 
ParamList ::= Param | ParamList . Param 

PromptedParamList ::= Param | PromptedParamList <CR> Param 
Param ::= " STRING " | 'CHARACTER | Expression | <empty> 
Expression ::= Product | Expression + Product | Expression - Product 
Product ::= Factor | Product * Factor | Product / Factor | Product MOD Factor 
Factor ::= - Primary | Primary 
Primary ::= NUM | ( Expression ) 



